﻿Imports DataDynamics.ActiveReports 
Imports DataDynamics.ActiveReports.Document
Imports System.Drawing
Imports Tohto.Base.ComUtility

Public Class R020201

#Region "変数"

    ''' <summary>
    ''' ページフラグ
    ''' </summary>
    ''' <remarks></remarks>
    Private blnNewPage As Boolean = False


#End Region

    Private Sub R020201_ReportStart(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ReportStart
        Try
            '9999年99月99日
            Dim strToday As String = Now.Year.ToString.PadLeft(4, CChar("0")) & "年" & _
               Now.Month.ToString.PadLeft(2, CChar("0")) & "月" & Now.Day.ToString.PadLeft(2, CChar("0")) & "日"
            TextBox1.Text = strToday
            'ヘッダタイトルマック色
            Me.lblMark.ForeColor = Color.FromArgb(100, 192, 192, 192)


        Catch ex As Exception
            Throw ex
        End Try


    End Sub
End Class
